10 XX=RND(-TI):U=370370367:PRINTCHR$(142)CHR$(8):GOTO110
20 GETNU$
30 IFNU$="1"ORNU$="2"ORNU$="3"ORNU$="4"ORNU$="5"THEN100
40 IFNU$="6"ORNU$="7"ORNU$="8"ORNU$="9"ORNU$=CHR$(133)THEN100
50 PRINTCHR$(18)CHR$(32)CHR$(146)CHR$(157);:T2=TI+15
60 IFTI<T2THEN60
70 PRINTCHR$(32)CHR$(157);:T2=TI+15
80 IFTI<T2THEN80
90 GOTO20
100 RETURN
110 GOSUB1880:GOSUB1660:POKE53280,1:POKE53281,1
120 PRINT"[147]            SHUT THE BOXES":FORT=1TO2000:NEXT
130 PRINT"[154][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
140 PRINT" * IMPORTANT REMINDER... "
150 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
160 PRINT" * PRESS F1 WHEN NONE OF THE BOXES    "
170 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
180 PRINT" * MATCH THE ROLL OF YOUR DICE        ":FORT=1TO4000:NEXT
190 IFU=370370367THEN210
200 PRINT"[158][147]"U:PRINT"             SHUT THE BOXES":GOTO220
210 PRINT"[147]             SHUT THE BOXES"
220 PRINTBX$(1):PRINTBX$(2):PRINTBX$(3)+"":PRINTBX$(4):PRINTBX$(4):PRINTBX$(4)
230 DC=45
240 IFDC<7THENGOSUB1550:GOTO260
250 GOSUB1370
260 PRINT""SQ$"[145] SELECT YOUR BOX(ES)"
270 PRINTL$(1):PRINTL$(2):PRINTL$(3):PRINTL$(4):PRINTL$(5):PRINTL$(6)
280 DU=0:PCH=0:C=1
290 PRINT""SQ$" SHUT BOX NUMBER ? ";
300 GOSUB20
310 PRINTNU$:IFNU$=CHR$(133)THEN1000
320 NU=VAL(NU$):SU=NU:GOSUB970
330 IFPCH=1THENGOSUB1330
340 IFDU=1THENGOSUB1320:GOTO260
350 IFNU>TTTHENPRINT"[156] CHOICE TOO LARGE!!!":DU=1:GOSUB1860:GOTO340
360 IFNU<TTTHEN380
370 UV=NU:GOTO730
380 GOSUB1340
390 PRINT"   AND WHAT ELSE ? ";
400 GOSUB20
410 PRINTNU$:IFNU$=CHR$(133)THEN1000
420 EL=VAL(NU$):SU=EL:GOSUB970
430 IFPCH=1THENGOSUB1330
440 IFDU=1THENGOSUB1320:GOTO260
450 IFEL=NUTHENGOSUB1350:GOTO440
460 UV=EL+NU
470 IFUV>TTTHENGOSUB1360:GOTO440
480 IFUV<TTTHEN500
490 GOTO730
500 GOSUB1340
510 PRINT"  CHOOSE ANOTHER ? ";
520 GOSUB20
530 PRINTNU$:IFNU$=CHR$(133)THEN1000
540 CA=VAL(NU$):SU=CA:GOSUB970
550 IFPCH=1THENGOSUB1330
560 IFDU=1THENGOSUB1320:GOTO260
570 IFCA=NUORCA=ELTHENGOSUB1350:GOTO560
580 UV=UV+CA
590 IFUV>TTTHENGOSUB1360:GOTO560
600 IFUV<TTTHEN620
610 GOTO730
620 GOSUB1340
630 PRINT"YOUR LAST CHOICE ? ";
640 GOSUB20
650 PRINTNU$:IFNU$=CHR$(133)THEN1000
660 LC=VAL(NU$):SU=LC:GOSUB970
670 IFPCH=1THENGOSUB1330
680 IFDU=1THENGOSUB1320:GOTO260
690 IFLC=NUORLC=ELORLC=CATHENGOSUB1350:GOTO680
700 UV=UV+LC
710 IFUV>TTTHENGOSUB1360:GOTO680
720 IFUV<TTTHENPRINT" ONLY 4 CHOICES ARE ALLOWED!":C=C-1:DU=1:GOSUB1860:GOTO680
730 PRINT"[156] THAT'S A MATCH!"
740 DC=DC-UV
750 ONCGOTO790,780,770,760
760 LETW=LC:GOTO800
770 LETW=CA:GOTO800
780 LETW=EL:GOTO800
790 LETW=NU:GOTO800
800 GOSUB850
810 IFC>0THEN750
820 IFDC=0THENGOSUB1820:GOTO1000
830 FORT=1TO1000:NEXT
840 GOTO240
850 C=C-1
860 R=(W-1)*4
870 READX,Y,A,B
880 IFX=-1THENRESTORE:RETURN
890 IFX=9THENGOSUB1800:GOTO870
900 POKE1024+(X+R)+40*(Y),A
910 POKE55296+(X+R)+40*(Y),B
920 GOTO870
930 DATA2,5,160,5,2,8,76,6,3,5,160,5,3,8,111,6,4,5,160,5,4,8,122,6,9,9,9,9
940 DATA4,4,160,5,4,7,106,6,3,4,160,5,3,7,160,1,2,4,160,5,2,7,116,6,9,9,9,9
950 DATA2,3,160,5,2,6,116,6,3,3,160,5,3,6,160,1,4,3,160,5,4,6,106,6,9,9,9,9
960 DATA-1,-1,-1,-1
970 IFPEEK(1187+(SU-1)*4)=160THEN990
980 RETURN
990 PCH=1:RETURN
1000 B$(1)="":B$(2)="":B$(3)="":B$(4)="":B$(5)="":B$(6)="":B$(7)="":B$(8)=""
1010 B$(9)=""
1020 PRINTL$(1):PRINTL$(2):PRINTL$(3):PRINTL$(4):PRINTL$(5)
1030 PRINTSQ$+""
1040 PRINT"[158]          **** SCOREBOARD ****"
1050 FORPK=1TO9
1060 IFPEEK(1187+(PK-1)*4)<>160THENB$(PK)=CHR$(48+PK)
1070 NEXTPK
1080 Q=Q+1
1090 SK$=B$(1)+B$(2)+B$(3)+B$(4)+B$(5)+B$(6)+B$(7)+B$(8)+B$(9)
1100 P1=VAL(SK$)
1110 FS=FS+P1:IFDC=0THENFS=0
1120 IFQ=3THENPRINT" YOUR FINAL SCORE IS";FS:GOTO1160
1130 PRINT" YOUR SCORE SO FAR IS";FS
1140 FORI=1TO3000:NEXT
1150 GOTO190
1160 PRINT" GAME OVER...PLAY AGAIN <Y/N> ?"
1170 IFFS<=UTHENPRINT"          "
1180 IFFS<=UTHENPRINT"[158]"FS"  BEST LOW SCORE SO FAR!":GOSUB1820
1190 POKE781,23:POKE782,32:POKE783,0:SYS65520
1200 GETYN$:IFYN$="Y"ORYN$="N"THEN1260
1210 PRINTCHR$(18)CHR$(32)CHR$(146)CHR$(157);:T2=TI+15
1220 IFTI<T2THEN1220
1230 PRINTCHR$(32)CHR$(157);:T2=TI+15
1240 IFTI<T2THEN1240
1250 GOTO1200
1260 PRINTYN$:IFYN$="Y"THENCLR:GOSUB1280:GOTO110
1270 PRINT"[147]                THE END!":END
1280 FORH=1024TO1033
1290 U$=U$+CHR$(PEEK(H))
1300 NEXT
1310 U=VAL(U$):RETURN
1320 PRINT"[158] LET'S START OVER AGAIN.":FORT=1TO2000:NEXT:RETURN
1330 PRINT" YOU ALREADY PICKED THAT BOX!":C=C-1:DU=1:GOSUB1860:RETURN
1340 C=C+1:DU=0:PCH=0:RETURN
1350 PRINT" YOU CAN'T PICK SAME BOX TWICE!":C=C-1:DU=1:GOSUB1860:RETURN
1360 PRINT" YOUR LAST CHOICE WAS TOO LARGE.":C=C-1:DU=1:GOSUB1860:RETURN
1370 PRINTSQ$"[145]"BK$"[144]"
1380 FORI=1TO8
1390 D1=INT(6*RND(1)+1)
1400 D2=INT(6*RND(1)+1)
1410 PRINTRQ$SPC(14);
1420 OND1GOSUB1490,1500,1510,1520,1530,1540
1430 PRINTRQ$SPC(20);
1440 OND2GOSUB1490,1500,1510,1520,1530,1540
1450 GOSUB1780
1460 NEXTI
1470 TT=D1+D2
1480 RETURN
1490 PRINTD$(1);:PRINTD$(2);:PRINTD$(3);:PRINTD$(2);:PRINTD$(4):RETURN
1500 PRINTD$(1);:PRINTD$(5);:PRINTD$(2);:PRINTD$(6);:PRINTD$(4):RETURN
1510 PRINTD$(1);:PRINTD$(5);:PRINTD$(3);:PRINTD$(6);:PRINTD$(4):RETURN
1520 PRINTD$(1);:PRINTD$(7);:PRINTD$(2);:PRINTD$(7);:PRINTD$(4):RETURN
1530 PRINTD$(1);:PRINTD$(7);:PRINTD$(3);:PRINTD$(7);:PRINTD$(4):RETURN
1540 PRINTD$(1);:PRINTD$(8);:PRINTD$(2);:PRINTD$(8);:PRINTD$(4):RETURN
1550 PRINTRQ$+BK$:PRINTRQ$+""+BK$:PRINTRQ$+""+BK$:PRINTRQ$+""+BK$
1560 PRINTRQ$+""+BK$:PRINTRQ$+""+BK$:PRINT"[144]"
1570 FORI=1TO8
1580 D1(I)=INT(6*RND(1)+1)
1590 IFD1(I)=D1(I-1)THEN1580
1600 PRINTRQ$SPC(17);
1610 OND1(I)GOSUB1490,1500,1510,1520,1530,1540
1620 GOSUB1780
1630 NEXTI
1640 TT=D1(8)
1650 RETURN
1660 BX$(1)="  [207][183][208] [207][183][208] [207][183][208] [207][183][208] [207][183][208] [207][183][208] [207][183][208] [207][183][208] [207][183][208]"
1670 BX$(2)="  [180]1[170] [180]2[170] [180]3[170] [180]4[170] [180]5[170] [180]6[170] [180]7[170] [180]8[170] [180]9[170]"
1680 BX$(3)="  [180] [170] [180] [170] [180] [170] [180] [170] [180] [170] [180] [170] [180] [170] [180] [170] [180] [170]"
1690 BX$(4)="     [146]    [146]    [146]    [146]    [146]    [146]    [146]    [146]    [146]"
1700 RQ$="":SQ$=""
1710 BK$="                                       "
1720 L$(1)=SQ$+BK$:L$(2)=SQ$+""+BK$:L$(3)=SQ$+""+BK$:L$(4)=SQ$+""+BK$
1730 L$(5)=SQ$+""+BK$:L$(6)=SQ$+""+BK$
1740 D$(1)="[207][183][183][183][208][157][157][157][157][157]":D$(2)="[180]   [170][157][157][157][157][157]":D$(3)="[180] [209] [170][157][157][157][157][157]"
1750 D$(4)="[204][175][175][175][186]":D$(5)="[180][209]  [170][157][157][157][157][157]":D$(6)="[180]  [209][170][157][157][157][157][157]":D$(7)="[180][209] [209][170][157][157][157][157][157]"
1760 D$(8)="[180][209][209][209][170][157][157][157][157][157]"
1770 RETURN
1780 V=54296:W=54276:A=54277:H=54273:L=54272:FORX=5TO0STEP-1:POKEV,X:POKEW,129
1790 POKEA,15:POKEH,200:POKEL,200:NEXT:POKEW,0:POKEA,0:RETURN
1800 V=54296:W=54276:A=54277:H=54273:L=54272:PH=54275:POKEV,5:POKEW,65:POKEA,15
1810 POKEPH,15:FORM=20TO5STEP-2:POKEH,40:POKEL,M:NEXT:POKEW,0:RETURN
1820 FORL=1TO10STEP1:POKE54296,15:POKE54273,40:POKE54277,9:POKE54278,0
1830 POKE54276,17:FORT=1TO100:NEXT:POKE54276,16:NEXTL:POKE54296,15:POKE54273,40
1840 POKE54277,9:POKE54278,0:POKE54276,17:FORT=1TO200:NEXT:POKE54276,16
1850 POKE54296,00:GOSUB1880:RETURN
1860 POKE54296,5:POKE54273,5:POKE54277,0:POKE54278,240:POKE54276,33
1870 FORT=1TO1000:NEXT:POKE54276,32:POKE54296,0:RETURN
1880 POKE54296,0:POKE54273,5:POKE54277,0:POKE54278,240:POKE54276,33
1890 FORT=1TO10:NEXT:POKE54276,32:POKE54296,0:RETURN